home *** CD-ROM | disk | FTP | other *** search
/ 130 MIDI Tool Box / 130 MIDI Tool Box.iso / pc800 / pc804.c < prev    next >
Text File  |  1987-10-25  |  2KB  |  78 lines
  1. #include<dos.h>
  2. #include<stdarg.h>
  3. #include<stdio.h>
  4. #include<stdlib.h>
  5.  
  6. #include"\c\colors.h"
  7.  
  8. extern int midi_x_data[5][65];
  9.  
  10. load_set()
  11. {
  12.  int a,b;
  13.  FILE *fp;
  14.  char *fn[20];
  15.  char *fe;
  16.  
  17.       screen(1); cls();
  18.       color(red+bold);
  19.       printf("\nSET LOAD");
  20.       color(blue);
  21.       printf(" - Enter Set Name:");
  22.       scanf("%s",fn);
  23.       printf("\n");
  24.  
  25.       fe=".set";
  26.       strncat(fn,fe,20);
  27.  
  28.       if ((fp = fopen(fn, "r"))==0) {
  29.              color(red);
  30.              printf("Bad open\n");
  31.                                     }
  32.       else     {
  33.                for (a=0;a<5;a++)
  34.                 for (b=0;b<=58;b++)
  35.                  midi_x_data[a][b]=getc(fp);
  36.                 fclose(fp);
  37.                 color(green);
  38.                 printf("Load OK\n");
  39.                }
  40.  wait_key();
  41.  screen(0);
  42.  show_midi_x_data();
  43. }
  44. /*------------------------------------------------------------------*/
  45. save_set()
  46. {
  47.  int a,b;
  48.  FILE *fp, *fopen();
  49.  char *fn[20];
  50.  char *fe;
  51.  
  52.       screen(1);
  53.       color(red+bold);
  54.       printf("\nSET WRITE");
  55.       color(blue);
  56.       printf(" - Enter Set Name:");
  57.       scanf("%s",fn);
  58.       printf("\n");
  59.  
  60.       fe=".set";
  61.       strncat(fn,fe,20);
  62.  
  63.       if ((fp = fopen(fn, "w"))==0) {
  64.                 color(red+bold);
  65.                 printf("Bad open\n");
  66.                                     }
  67.       else     {
  68.                 for (a=0;a<5;a++)
  69.                  for (b=0;b<=58;b++)
  70.                   putc(midi_x_data[a][b],fp);
  71.                 fclose(fp);
  72.                 color(green+bold);
  73.                 printf("Write OK\n");
  74.                }
  75.  wait_key();
  76.  screen(0);
  77. }
  78.